home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / misc / ftn.sty < prev    next >
Text File  |  1991-07-05  |  980b  |  47 lines
  1. % ftn.sty - footnotes inside tabular/array environments
  2. % Kresten Krab Thorup <krab@iesd.auc.dk>     1991-06-25
  3.  
  4. \def\inner@ftn{%
  5.     \@ifnextchar[{\in@xftn}{\in@ftn{}}}
  6.  
  7. \def\in@xftn[#1]#2{%
  8.     \in@ftn{[#1]}{#2}}
  9.  
  10. \def\in@ftn#1#2{%
  11.     \@temptokena={\footnotetext#1{#2}}%
  12.     \@temptokenb=\expandafter{\ftn@list}%
  13.     \xdef\ftn@list{\the\@temptokenb\the\@temptokena}%
  14.     \footnotemark#1}
  15.  
  16. \def\exec@ftn{%
  17.     \let\@temptokena=\ftn@list
  18.     \let\ftn@list=\empty
  19.     \@temptokena}
  20.  
  21. \def\ftn#1{%
  22.     \expandafter\let\csname o@#1\expandafter\endcsname
  23.         \expandafter=\csname #1\endcsname
  24.     \expandafter\let\csname o@end#1\expandafter\endcsname
  25.         \expandafter=\csname end#1\endcsname
  26.     \expandafter\def\csname #1\endcsname{\bgroup
  27.         \let\footnote\inner@ftn\csname o@#1\endcsname}
  28.     \expandafter\def\csname end#1\endcsname{\csname o@end#1\endcsname
  29.         \exec@ftn\egroup}}
  30.  
  31. %
  32. %    INITIALIZING
  33. %
  34.  
  35. \newtoks\@temptokenb
  36. \def\ftn@list{}
  37.  
  38. % add more to this list...
  39.  
  40. \ftn{tabular}
  41. \ftn{array}
  42. \ftn{minipage}
  43. \ftn{eqnarray}
  44.  
  45.  
  46.  
  47.